package Numerotation_Romaine is
   type Symbole_Romain is (I,V,X,L,C,D,M);
   type Nombre_Romain is array(Positive range<>)of Symbole_Romain;
   Valeur : constant array (Symbole_Romain) of Positive :=
     (I => 1 ;
      V => 5 ;
      X => 10;
      L => 50;
      C => 100;
      D => 500;
      M => 1000;);

   Retranchable : constant array(Symbole_Romain) of Boolean :=
     (I => True;
      V => False;
      X => True;
      L => False;
      C => True ;
      D => False;
      M => False;);
end Numerotation_Romaine;

